home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / SourceCode / Tutorial / Cookbook / 07.PSWrap / MyView.m < prev    next >
Text File  |  1995-06-12  |  482b  |  32 lines
  1.  
  2. /* Generated by Interface Builder */
  3.  
  4. #import "MyView.h"
  5. #import <dpsclient/wraps.h>
  6. #import <appkit/Control.h>
  7. #import "line.h"
  8. #import "circle.h"
  9.  
  10. @implementation MyView
  11.  
  12. - mySlider:sender
  13. {
  14.     myFloat = [sender floatValue];
  15.     [self display];
  16.     return self;
  17. }
  18.  
  19. - drawSelf:(NXRect*)r :(int)c
  20. {
  21.     NXEraseRect(&bounds);
  22.     PSmoveto(300.0, 200.0);
  23.     drawCircle(50.0, 0.333);
  24.     PSsetgray(NX_BLACK);
  25.     PSsetlinewidth(5.0);
  26.     doLine(myFloat*1.3, myFloat);
  27.     return self;
  28. }
  29.  
  30.  
  31. @end
  32.